home *** CD-ROM | disk | FTP | other *** search
/ Aminet 15 / Aminet 15 - Nov 1996.iso / Aminet / util / misc / TMDock.lha / tmdock / examples / CloseMainScreen.mmx < prev    next >
Encoding:
Text File  |  1996-09-26  |  313 b   |  17 lines
  1. /**/
  2.  
  3. IF EXISTS( 'T:TMDock.pid' ) THEN
  4. DO
  5.   CALL OPEN( 'PID_File', 'T:TMDock.pid', 'READ' )
  6.   Zeile=READLN( 'PID_File' )
  7.   CALL CLOSE( 'PID_File' )
  8.  
  9.   Zeile=STRIP( Zeile, 'L', '[' )
  10.   Zeile=STRIP( Zeile, 'T', ']' )
  11.   pid=SUBSTR( Zeile, 5 )
  12.  
  13.   ADDRESS COMMAND
  14.   'Break >NIL: 'pid
  15.   'Delete >NIL: T:TMDock.pid'
  16. END
  17.